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: Version: *v04-000' 
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-MCALL MFPR 
-TITLE MPTIMER = MP TIMER INTERRUPT HANDLER 
IDENT 'V04-000' 


| Gabaeewngeneendebeenbeennnaenbanenseneeserneneenensesesencesunbeoesiensemes 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


i* « 
3* * 
3* * 
3* * 
7* * 
7* THIS fe hers } FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH TA SE AND WITH THE * 
:* INCLUSION OF tHe ABOVE gh LT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3* TRANSFERRED. * 
* * 
hd pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
7* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3* CORPORATION. * 
3* ® 
3* ® 
3* * 
3* * 
3* tt 
3* * 
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Facility: Executive , Hardware fault handling 

Abstract: Timer interrupt handler for secondary processor 
Environment: MODE=Kernel 

Author: RICHARD I. HUSTVEDT, Creation date: 15-MAY-1979 
Modified by: 


V03-008 KDM0094 Kathleen D. Morse 22-Mar-1984 
Do not reschedule a real-time process that goes through 
Quantum end on the secondary processor. 


v03-007 oe 51 giph 0 Weber 29-DEC-1982 

x SOFTINT in mess UCLRINT to use IPL$ _FIMERFORK and 
MPSSSUT RINT to begin by rateing IPL to IPL$_TIMER. {hte 
change is required to match similar changes on the oe ary, 
The net effect of these changes is to raise IPLS$_SYNCH to 8. 


v03-006 EpROSeS Kathleen D. Morse 10-Oct-1982 
Change secondary specific Feut ines to be MPS$xxx instead 


ODOooooooooooooooooooo 
SOOooooooooooooooooocoSo 
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8 0 ? ; of EXESxxx (MPSSSWTIMINT, MPSS$HWCLKINT). 

0 6 2 3 v03-005 KDM0010 athleen D. Morse 31-Aug-1982 

8 § ; Lower IPL to SYNCH before rescheduling for econ end. 

000 38 ; Vv03-004 appa Kathleen D. Morse as Pog 

it 23 ; an interlocked operation before seontae | MP sa grate. 

4 61 ;-- 

0 oS. 

0 6 

8 $e ; MACRO LIBRARY CALLS 
0000 96 
4 6 SCADEF : Define conditional geoqnbly poranesers 
000 68 SIPLDEF ; Define interrupt priority levels 
464 9 SLCKDEF : Interlock bit definitions 

000 0 SMPSDEF 3 pogqneery processor state definitions 
0000 71 SPCBDEF ; Define PCB offsets 

0000 ie SPHDDEF 3; Define PHD offsets 

0000 7 SPRDEF ; Define processor registers 

0000 74 SPRIDEF : Define priority increments 

0000 75 SPSLDEF ; Define processor status fields 
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MPTIMER - MP TIMER INTERRUPT HANDLER 16-SEP-1984 02:07: AX/VMS_ Macro V04-00 Page 
y04-000 HARDWARE CLOCK INTERRUPTS gree Tobe ET UMP. SRCIMPTIMER MARS 1 . 
44 i -SBTTL HARDWARE CLOCK INTERRUPTS 
5 ; EXESHWCLKINT = HARDWARE CLOCK INTERRUPT 
1 ; This routine is automatically vectored to when the clock count register 
§ ; overflows. The accounting integral of the current process in incremented, 
3 ; and the quantum of the current process is incremented. If the process quantum 
4 ; transists to zero then a software interrupt is requested on the timer level. 
B8 5 ; The clock interrupt is then dismissed. 
$09 5 ; INPUTS: 
0090 § ; (SP) = PC at time of interrupt 
00 90 ; 4(SP) = PSL at time of interrupt 
0000 91 ; 
44 38 3 ENVIRONMENT: 
000 93 ; 
44 94 ; Executes on secondar eregeseer’. 
000 95 ; The routine executes at IPL “x18. 
0000 96 ; 
44 97 ;- 
000 98 
00000000 99 -PSECT ASEXENONPAGED,LONG 
0000 100 MPSSHWCLKINT:: ; Hardware clock jntorrust routine 
7E 50 7D 000 101 ova RO,-(SP) ; Save register RO and R 
18 800000C1 8F DA 4 138 MTPR #*X800000C1,MPRS_ICCS ; Clr err & intrpt and re-enable 
00000002 QO00A 104 -1F NE CAS$_MEASURE 
50 OF AE 98 QOOA 105 CVTBL = 15¢5P),R0 ; Get upper byte of saved PSL 
1 sit 106 BLSS 70$ ; Br if CM bit set 
50 F8 8F A 001 107 10$: BICB #*xF8,RO 3; Convert extended byte to index 
O000°CF40 D6 0014 108 INCL W*MPS$AL_CPUTIMECRO] ; Increment statistics vector 
0019 109 ~ENDC 
0019 110 
0019 111 IF DF ,MPPFMSWT 
0019 Wg BSBW MPSSPFM_RUNTIME ; Gather performance measurement data 
$019 ie — 
OOO'CF 00 £6 0019 £115 BBSSI #LCKSV_INTERLOCK,W*MPSSGL_INTERLOCK,15$ ; Flush cache queue 
1 QOOO'CF D1 OOTF V6 15$: CMPL W*MPSSGL_STATE ,#MPSSK_IDLESTATE ; Is a process actually running? 
3F 0 6.13) «(0024~—Cisd1:1 BEQL ; Br on no, go accumulate null time 
04 OO00'CF 01 6 118 CMPL W°MPSSGL_STATE ,#MPSSK_EXECSTATE ; isa process actually running? 
“7. ¥ B 119 BNEQ 20$ ; Br on no, don’t accumulate time in PHD 
50 O000°CF oD 3 120 MOVL W*MPSSGL_CURPCB,RO ; Get address of current process PCB 
51 CAO (OD 121 MOVL PCBSL_PHB(RO ri ; Get address of process header 
8 Al 06 se : INCL PHDSL-CPUTIM(A1) : Increment a counting integral 
C Al 68 9 1 INCW PHDSW_QUANT(R1) : Increment time quantum 
ge 1 C 126 BGEQ 30 : If EQL quantum ran out 
50 <7 ‘ 125 20$: MOVa (SP)+,RO ; Restore RO and Ri 
02 2 ' $ REI 3 
10 OB AO 91 § 1 8 30$: CMPB PCBSB_PRI(RO) #16 ; Is this a real-time process? 
05 =(19 3 1 BLSS 40$ ; Br if yes. it is real-time 
4 130 SOF TINT CJ tUS_TIRERF ORE ; Request software timer fork int 
fl =17 48 131 BRB $ ; Join common code 
00 24 a0 O03 €5 $8 1 § 40$: BBCC #PCB$v INQUAN,PCBSL_STS(RO) 50$ ; Clear initial quan flag 
‘GF BO 0052 133 50$:  MOVW  G*SCHSGW_QUAN.PHDSW-QUANT(R1) ; Set new quantum 


ver wae ee 4 i a i at 9 Og: aH as Macro v04-00 Page 4 | 


MPTIMER - MP TIMER INTERR 
HARDWARE CLOCK INTERRUPTS SEP-19 7: MP.SRCIMPTIMER.MAR; 1 (1) 
0118 CO O0000000'GF D0 SA 134 MOVL SS PCR JOST EPCOT, ne Oe (ne 3; Record event time 
dos 3 ! 5 BRB 0 3; Join common code 
49 B6 1 5 60$ INCL W*MPSSGL_NULLCPU ; Accumulate null cpu time for secondary 
50 0990 000 ' GF 3 9 1 3 MOVAB wea te NULLPCB,RO ; Get address of PCB for null process 
A D 3 0 1 MOVL PCBSL_PHB(RO),R ; Get address of process header 
A 99 74 = =140 INCL PHDSL~CPUTIM(RO) 3; Increment accounting integral 
C 1 a 12) BRB 20$ 3; Join common code 
00000002 8 128 -1F NE CAS_MEASURE 
50 05 9A 79 = 144-708 MOVZBL #5,R0 : Insert CM index 
92 11 OO7C 145 BRB 10§ 3; Joint common code 
O7E 146 - ENDC 
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704-000 SOFTWARE TIMER INTERRUPTS g- Sen 18 4 85:05:43 EMP. SRCIMPTIMER-MARS 1 = 

43 -SBTTL SOFTWARE TIMER INTERRUPTS 

43 EXESSWTIMINT = SOFTWARE TIMER INTERRUPTS 

7E This routine is automatically vectored to when a software interrupt 

7E is requested on the timer level. Timer interrupts are requested when 

4 the current process has exceeded its cpu time quantum. 

E A kernel mode PSL and a PC pe{nting to MPSSQEND are placed on the kernel 

7E stack so that the primary will continue executing quantum end for this 

7E process. 

7E 

INPUTS: 


(SP) = PC at time of interrupt 
4(SP) = PSL at time of interrupt 


ENVIRONMENT: 
Executes on secondary processor. 
This routine is entered at IPL$_TIMERFORK. It immediately raises 


to IPL$ TIMER (which equals IPLS_SYNCH) and completes execution at 
IPL$_SYACH. 


DNNNWUOOOCOMMMMMMmMmMmmmmmmmmmmrn 


00 
00 - 
00 
00 -ENABL LSB 
00 ALIGN LONG 
i ASSUME IPLS$_SYNCH EQ iPLS$_TIMER 
00 MPSSSWTIMINT:: 3; Software timer interrupt routine 
00 SETIPL #IPLS_TIMER 3; Raise to normal IPL. 
07 AE O03 93 00 #<<PSCSM_CURMOD> - : Check if this interrupt 
bos @-<PSLSV_CURMOD>>, = 3 occurred during 
0 4+<PSL$V~CURMOD@-$>(SP) : kernel mode execution 
3¢)0—«13's«00 BEQL 208 ; Br if kernel mode, forget interrupt 
50 dD 00 PUSHL RO 3; Save register 
50 Q000'°CF 00 00 MOVL W*MPSSGL_CURPCB,RO : A second check for quantum must be 
50 6C AO 00 9 VL PCB$L_PHB(RO) RO ; _done here in case the process found 
094 SETIPL #1 : Prevent powerfail window here 
OOOO'CF 05 0097 TSTL W*MPSSGL_PFAILTIM ; Check if powerfail occured 
05 1 098 BNEQ 5$ ; Br if it did, olueys give process back 
3c AO ° 9D TSTW PHD$W_QUANT (RO) ; by the hardware clock routine was 
24 A BLSS 30$ ; _rescheduled before this interrupt. 
50 6€ 00 OQOA 5$: MOVL (SP) ,RO ; Restore register 
6E D4 oA CLRL (SP) 3; Make PSL Look Like kernel mode 
par A a DF ,MPPFMSWT 
A? 


BSBW MPSSPFM_QEND Gather performance measurement data 


Lower to SYNCH before scheduling 

Go return process to primary 

and make primary start execution at 
MPSSQEND, which must follow this Line 


SETIPL oir SYNCH 
BSBW MPSSMPSCHED2 
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MP.SRCIMPTIMER.MAR; 1 


MPSSQEND = QUANTUM END PERFORMED BY PRIMARY ON BEHALF OF SECONDARY 
This routine is the place that the primary starts quecut ing when the 


; secondary passes a process to it that has just fin 


ENVIRONMENT: 
Executed by primary processor. 


MPSSQEND: 
SETIPL #IPL$_SYNCH 
PUSHR #*M<RO,R1,R2,R3,R4,R5> 
MOVL  G*SCHSGL_CURPCB.R4 
MOVL  PCBSL_PHB(R4),R5 
JSB SCHSQE 
10$: POPR #*M<RO,R1,R2,R3,R4,R5> 
20$: REL 
30$ MOVL  (SP)+,RO 
REI 


shed its quantum. 


Synch scheduler with other reporting 
Save registers RO through R5 

Get current process PCB address 

Get address of process header 
Perform normal quantum end 

Restore registers RO thru R5 

Return from interrupt 


; Restore register 


ref, 


$3 
Ss 


CK eee Ww 


FORK 
pem Otek 
TIME 


PCB 
MPSSGL_INTERLOCK 
MPSSGL_NULLCPU 
| RESSGL PFAILTIA 

MPSSGL-STA ye 
MPSSHWCLKINT 
MPSSK_EXECSTATE 
MPSS$K-IDLESTATE 
MPSSMPSCHED2 


MPSSQEND 
whee dd eal 
PCBSB_PRI 
eres -ots 
ecesL _WAITIME 
NQUAN 


scC_ 
SCHSGL— =NULLPCB 
SCHSGW" QUAN 
SCH WSOERD 


PSECT name 


pastes teat ten 
processing 


_ 
Symbol table sort 
Pass 2 
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gr Ee obe AEE MP.SRCIMPTIMER.MAR; 1 ° a) 
= 00000002 
ereeeene x 02 
= 1F 
= | 
; H | 
= 
= 00000000 
geerenee x 
keeerere x 
eeeerene x 
eeeweene x | 
reeteree x 8 
geereree x 
4h 000 RG 0 
= 00000004 
= 00000001 
geeerere x 0 
Q00000AD 03 
4464 80 RG 
= 00000008 
= 0000006C 
= 00000024 
= 000001 
= 000000 
= 000000 
= 000000 
= i444 4d 
= 0000001 
= 00000014 
= 0300000 
= 0000001 
geeeeeee x 0 
geekeere x 0 
gkeekene x 0 
geeeeere x 0 
eer ore tase eoewce oa 
: Psect synopsis H 
Allocation PSECT No. Attributes 
00000000 < NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
00000000 < } Oi ¢ NOPIC USR CON ABS LCL NOSHR-~ EXE RD WRT NOVEC BYTE 
OOOOOOCA 202. 2 ( 33} NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC LONG 


Swoon en Beene come nmo mamma > 


CPU Time 


Page faults 


134 00:00:82  90:00:09.07 
a i a 


61 0:00:01. 


thin 
VAX=11 Macro Run Statistics 


Symbol table output 7 00:00. 
Psect synopsis output 1 :00:00. 
Cross-reference output 9 :00:00. 
Assembler run totals 45 :00:07.94 


14 
5 
0 
4 
york ing (85 Limit was 1350 page 
S bytes, (50 pages) of yirtual eenery were used to buffer the intermediate ft: 
2538 re were 30 pages of symbol table sere. al = d to hold 429 non-local Sg local symbols. 
§ source iy,029 were read in Pass 1, prod ug object records in Pass 2. 
pages of virtual memory were used to defi ne 919 macros. 


-SEP=1 


penne escent ene ee ome OS + 


! ; Macro library statistics ; 


Macro Library name Macros defined 
-$255$DUA es OBJIMP. m3; 1 3 
“$255$DUA SYS$.OBJJLIB8.MLB;1 7 
“$255$DUA :CSYSLIB STARLET. MLB;2 6 

TOTALS (all Libraries) 16 


555 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
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MACRO/LIS=LIS$:MPTIMER/OBJ=OBJ$:MPTIMER MSRC$:MPPREF 1X/UPDATE=(ENHS:MPPREF 1X) +MSRC$:MPTIMER/UPDATE=(ENHS:MPTIMER) +EXECML$/LIB+LIBS:M 
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